home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1991 November / 1991-11.d64 / connect game (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  18KB  |  643 lines
  1. 0 clr
  2. 100 rem copyright 1991 - compute publications intl ltd - all rights reserved
  3. 135 goto2670
  4. 140 if l$="ab" and at>0 goto465
  5. 145 if l$="bc" and bt>0 goto465
  6. 150 if l$="cd" and ct>0 goto465
  7. 155 if l$="de" and dt>0 goto465
  8. 160 if l$="af" and al>0 goto465
  9. 165 if l$="fk" and el>0 goto465
  10. 170 if l$="kp" and il>0 goto465
  11. 175 if l$="pu" and ml>0 goto465
  12. 180 if l$="ej" and dr>0 goto465
  13. 185 if l$="jo" and hr>0 goto465
  14. 190 if l$="ot" and lr>0 goto465
  15. 195 if l$="ty" and pr>0 goto465
  16. 200 if l$="uv" and mb>0 goto465
  17. 205 if l$="vw" and nb>0 goto465
  18. 210 if l$="wx" and ob>0 goto465
  19. 215 if l$="xy" and pb>0 goto465
  20. 220 if l$="fg" and ab>0 goto465
  21. 225 if l$="fg" and et>0 goto465
  22. 230 if l$="gh" and bb>0 goto465
  23. 235 if l$="gh" and ft>0 goto465
  24. 240 if l$="hi" and cb>0 goto465
  25. 245 if l$="hi" and gt>0 goto465
  26. 250 if l$="ij" and db>0 goto465
  27. 255 if l$="ij" and ht>0 goto465
  28. 260 if l$="kl" and eb>0 goto465
  29. 265 if l$="kl" and it>0 goto465
  30. 270 if l$="lm" and fb>0 goto465
  31. 275 if l$="lm" and jt>0 goto465
  32. 280 if l$="mn" and gb>0 goto465
  33. 285 if l$="mn" and kt>0 goto465
  34. 290 if l$="no" and hb>0 goto465
  35. 295 if l$="no" and lt>0 goto465
  36. 300 if l$="pq" and ib>0 goto465
  37. 305 if l$="pq" and mt>0 goto465
  38. 310 if l$="qr" and jb>0 goto465
  39. 315 if l$="qr" and nt>0 goto465
  40. 320 if l$="rs" and kb>0 goto465
  41. 325 if l$="rs" and ot>0 goto465
  42. 330 if l$="st" and lb>0 goto465
  43. 335 if l$="st" and pt>0 goto465
  44. 340 if l$="bg" and ar>0 goto465
  45. 345 if l$="bg" and bl>0 goto465
  46. 350 if l$="gl" and er>0 goto465
  47. 355 if l$="gl" and fl>0 goto465
  48. 360 if l$="lq" and ir>0 goto465
  49. 365 if l$="lq" and jl>0 goto465
  50. 370 if l$="qv" and mr>0 goto465
  51. 375 if l$="qv" and nl>0 goto465
  52. 380 if l$="ch" and br>0 goto465
  53. 385 if l$="ch" and cl>0 goto465
  54. 390 if l$="hm" and fr>0 goto465
  55. 395 if l$="hm" and gl>0 goto465
  56. 400 if l$="mr" and jr>0 goto465
  57. 405 if l$="mr" and kl>0 goto465
  58. 410 if l$="rw" and nr>0 goto465
  59. 415 if l$="rw" and ol>0 goto465
  60. 420 if l$="di" and cr>0 goto465
  61. 425 if l$="di" and dl>0 goto465
  62. 430 if l$="in" and gr>0 goto465
  63. 435 if l$="in" and hl>0 goto465
  64. 440 if l$="ns" and kr>0 goto465
  65. 445 if l$="ns" and ll>0 goto465
  66. 450 if l$="sx" and ox>0 goto465
  67. 455 if l$="sx" and pl>0 goto465
  68. 460 return
  69. 465 poke 53270,peek(53270)or16:print""
  70. 470 gosub3300
  71. 475 print"sorry, that line has already been taken"
  72. 480 poke 53270,peek(53270)or16:print""
  73. 485 print"press the space bar when you are ready."
  74. 490 poke 53270,peek(53270)and 239
  75. 495 get a$: if a$<> chr$(32) goto495
  76. 500 t=2: gosub3300: goto3270
  77. 505 if l$= "ab" goto1870
  78. 510 if l$= "bc" goto1870
  79. 515 if l$= "cd" goto1870
  80. 520 if l$= "de" goto1870
  81. 525 if l$= "fg" goto1870
  82. 530 if l$= "gh" goto1870
  83. 535 if l$= "hi" goto1870
  84. 540 if l$= "ij" goto1870
  85. 545 if l$= "kl" goto1870
  86. 550 if l$= "lm" goto1870
  87. 555 if l$= "mn" goto1870
  88. 560 if l$= "no" goto1870
  89. 565 if l$= "pq" goto1870
  90. 570 if l$= "qr" goto1870
  91. 575 if l$= "rs" goto1870
  92. 580 if l$= "st" goto1870
  93. 585 if l$= "uv" goto1870
  94. 590 if l$= "vw" goto1870
  95. 595 if l$= "wx" goto1870
  96. 600 if l$= "xy" goto1870
  97. 605 if l$= "af" goto1770
  98. 610 if l$= "fk" goto1770
  99. 615 if l$= "kp" goto1770
  100. 620 if l$= "pu" goto1770
  101. 625 if l$= "bg" goto1770
  102. 630 if l$= "gl" goto1770
  103. 635 if l$= "lq" goto1770
  104. 640 if l$= "qv" goto1770
  105. 645 if l$= "ch" goto1770
  106. 650 if l$= "hm" goto1770
  107. 655 if l$= "mr" goto1770
  108. 660 if l$= "rw" goto1770
  109. 665 if l$= "di" goto1770
  110. 670 if l$= "in" goto1770
  111. 675 if l$= "ns" goto1770
  112. 680 if l$= "sx" goto1770
  113. 685 if l$= "ej" goto1770
  114. 690 if l$= "jo" goto1770
  115. 695 if l$= "ot" goto1770
  116. 700 if l$= "ty" goto1770
  117. 705 gosub3300
  118. 710 print"be careful, that is not a correct line.":print
  119. 715 poke 52370,peek(53270)or16:print""
  120. 720 print"press the space bar when you are ready."
  121. 725 poke 52370,peek(53270)and239
  122. 730 get a$: if a$<> chr$(32)  goto730
  123. 735 gosub3300: t=2
  124. 740 goto 3265
  125. 745 if(at)+(ab)+(al)+(ar)=3 then s=1: goto2410
  126. 750 if(bt)+(bb)+(bl)+(br)=3 then s=1: goto2530
  127. 755 if(ht)+(hb)+(hl)+(hr)=3 then s=1: goto2590
  128. 760 if(kt)+(kb)+(kl)+(kr)=3 then s=1: goto2570
  129. 765 if(mt)+(mb)+(ml)+(mr)=3 then s=1: goto2370
  130. 770 if(ct)+(cb)+(cl)+(cr)=3 then s=1: goto2470
  131. 775 if(ot)+(ob)+(ol)+(ox)=3 then s=1: goto2610
  132. 780 if(jt)+(jb)+(jl)+(jr)=3 then s=1: goto2550
  133. 785 if(lt)+(lb)+(ll)+(lr)=3 then s=1: goto2510
  134. 790 if(pt)+(pb)+(pl)+(pr)=3 then s=1: goto2650
  135. 795 if(gt)+(gb)+(gl)+(gr)=3 then s=1: goto2390
  136. 800 if(et)+(eb)+(el)+(er)=3 then s=1: goto2430
  137. 805 if(nt)+(nb)+(nl)+(nr)=3 then s=1: goto 2350
  138. 810 if(dt)+(db)+(dl)+(dr)=3 then s=1: goto2490
  139. 815 if(it)+(ib)+(il)+(ir)=3 then s=1: goto2630
  140. 820 if(ft)+(fb)+(fl)+(fr)=3 then s=1: goto2450
  141. 825 gosub3300
  142. 830 return
  143. 835 if(ft+fb+fl+fr)<>1  goto880
  144. 840 if ft=1 or(bt+bb+bl+br)>1 goto850
  145. 845 l$="gh": goto1895
  146. 850 if fr=1 or(gt+gb+gl+gr)>1 goto860
  147. 855 l$="hm": goto1815
  148. 860 if fb=1 or (jt+jb+jl+jr)>1 goto870
  149. 865 l$="im": goto1915
  150. 870 if fl=1 or (et+eb+el+er)>1 goto880
  151. 875 l$="gl": goto1795
  152. 880 if(gt+gb+gl+gr)<>1  goto925
  153. 885 if gt=1 or (ct+cb+cl+cr)>1 goto895
  154. 890 l$="hi": goto1900
  155. 895 if gb=1 or (kt+kb+kl+kr)>1 goto905
  156. 900 l$="mn": goto1920
  157. 905 if gl=1 or (ft+fb+fl+fr)>1 goto915
  158. 910 l$="hm": goto1815
  159. 915 if gr=1 or (ht+hb+hl+hr)>1 goto925
  160. 920 l$="in": goto1835
  161. 925 if(jt+jb+jl+jr)<>1  goto970
  162. 930 if jt=1 or (ft+fb+fl+fr)>1 goto940
  163. 935 l$="lm": goto1915
  164. 940 if jr=1 or (kt+kb+kl+kr)>1 goto950
  165. 945 l$="mr": goto1820
  166. 950 if jb=1 or (nt+nb+nl+nr)>1 goto960
  167. 955 l$="qr": goto1935
  168. 960 if jl=1 or (it+ib+il+ir)>1 goto970
  169. 965 l$="lq": goto1800
  170. 970 if(kt+kb+kl+kr)<>1  goto1015
  171. 975 if kt=1 or (gt+gb+gl+gr)>1 goto985
  172. 980 l$="mn": goto1920
  173. 985 if kr=1 or (lt+lb+ll+lr)>1 goto995
  174. 990 l$="ns": goto1840
  175. 995 if kb=1 or (ot+ob+ol+ox)>1 goto1005
  176. 1000 l$="rs": goto1940
  177. 1005 if kl=1 or (jt+jb+jl+jr)>1 goto1015
  178. 1010 l$="mr": goto1820
  179. 1015 if(dt+db+dl+dr)<>1  goto1060
  180. 1020 if dt=1   goto1030
  181. 1025 l$="de": goto1885
  182. 1030 if dr=1  goto1040
  183. 1035 l$="ej": goto1850
  184. 1040 if db=1 or (ht+hb+hl+hr)>1 goto1050
  185. 1045 l$="ij": goto1905
  186. 1050 if dl=1 or (ct+cb+cl+cr)>1 goto1060
  187. 1055 l$="di": goto1830
  188. 1060 if(pt+pb+pl+pr)<>1  goto1105
  189. 1065 if pt=1 or(lt+lb+ll+lr)>1 goto1075
  190. 1070 l$="st": goto1945
  191. 1075 if pr=1  goto1085
  192. 1080 l$="ty": goto1865
  193. 1085 if pb=1  goto1095
  194. 1090 l$="xy": goto1965
  195. 1095 if pl=1 or (ot+ob+ol+or)>1 goto1095
  196. 1100 l$="sx": goto1845
  197. 1105 if(at+ab+al+ar)<>1  goto1150
  198. 1110 if at=1  goto1120
  199. 1115 l$="ab": goto1870
  200. 1120 if ar=1 or (bt+bb+bl+br)>1 goto1130
  201. 1125 l$="bg": goto1790
  202. 1130 if ab=1 or (et+eb+el+er)>1 goto1140
  203. 1135 l$="fg": goto1890
  204. 1140 if al=1 then  goto1150
  205. 1145 l$="af": goto 1770
  206. 1150 if(mt+mb+ml+mr)<>1  goto1195
  207. 1155 if mt=1 or (it+ib+il+ir)>1 goto1165
  208. 1160 l$="pq": goto1930
  209. 1165 if mr=1 or (nt+nb+nl+nr)>1 goto1175
  210. 1170 l$="qv": goto1805
  211. 1175 if mb=1 then  goto1185
  212. 1180 l$="uv": goto1950
  213. 1185 if ml=1  goto1195
  214. 1190 l$="pu": goto1785
  215. 1195 if(et+eb+el+er)<>1  goto1240
  216. 1200 if et=1 or (at+ab+al+ar)>1 goto1210
  217. 1205 l$="fg": goto1890
  218. 1210 if er=1 or (ft+fb+fl+fr)>1 goto1220
  219. 1215 l$="gl": goto1795
  220. 1220 if eb=1 or (it+ib+il+ir)>1 goto1230
  221. 1225 l$="kl": goto1910
  222. 1230 if el=1  goto1240
  223. 1235 l$="fk": goto1775
  224. 1240 if(ct+cb+cl+cr)<>1  goto1285
  225. 1245 if ct=1 goto1255
  226. 1250 l$="cd" : goto1880
  227. 1255 if cr=1 or (dt+db+dl+dr)>1 goto1265
  228. 1260 l$="di": goto1830
  229. 1265 if cb=1 or (gt+gb+gl+gr)>1 goto1275
  230. 1270 l$="hi": goto1900
  231. 1275 if cl=1 or (bt+bb+bl+br)>1 goto1285
  232. 1280 l$="ch": goto1810
  233. 1285 if(it+ib+il+ir)<>1  goto1330
  234. 1290 if it=1 or (et+eb+el+er)>1 goto1300
  235. 1295 l$="kl": goto1910
  236. 1300 if ir=1 or (jt+jb+jl+jr)>1 goto1310
  237. 1305 l$="lq": goto1800
  238. 1310 if ib=1 or (mt+mb+ml+mr)>1 goto1320
  239. 1315 l$="pq": goto1930
  240. 1320 if il=1  goto1330
  241. 1325 l$="kp": goto1780
  242. 1330 if(ht+hb+hl+hr)<>1  goto1375
  243. 1335 if ht=1 or (dt+db+dl+dr)>1 goto1345
  244. 1340 l$="ij": goto1905
  245. 1345 if hr=1  goto1355
  246. 1350 l$="jo": goto1855
  247. 1355 if hb=1 or (lt+lb+ll+lr)>1 goto1365
  248. 1360 l$="no": goto1925
  249. 1365 if hl=1 or (gt+gb+gl+gr)>1 goto1375
  250. 1370 l$="in": goto1835
  251. 1375 if(lt+lb+ll+lr)<>1  goto1420
  252. 1380 if lt=1 or (ht+hb+hl+hr)>1 goto1390
  253. 1385 l$="no": goto1925
  254. 1390 if lr=1  goto1400
  255. 1395 l$="ot": goto1860
  256. 1400 if lb=1 or (pt+pb+pl+pr)>1 goto1410
  257. 1405 l$="st": goto1945
  258. 1410 if ll=1 or (kt+kb+kl+kr)>1 goto1420
  259. 1415 l$="ns": goto1840
  260. 1420 if(nt+nb+nl+nr)<>1  goto1465
  261. 1425 if nt=1 or (jt+jb+jl+jr)>1 goto1435
  262. 1430 l$="qr": goto1935
  263. 1435 if nr=1 or (ot+ob+ol+ox)>1 goto1445
  264. 1440 l$="rw": goto1825
  265. 1445 if nb=1  goto1455
  266. 1450 l$="vw": got